home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / b.w < prev    next >
Encoding:
Text File  |  1989-04-14  |  1.6 KB  |  107 lines
  1. procedure  main/0
  2.  
  3. _416:
  4.     put_constant  &100,X1
  5.     execute_proc  do/1
  6.  
  7.  
  8. procedure  do/1
  9.  
  10.     switch_on_term  _1213,_1214,_1214
  11. _1213:
  12.     try_me_else  _1224,1
  13. _1228:
  14.     get_constant  &0,X1
  15.     put_constant  complete,X1
  16.     escape  write/1
  17.     escape  nl/0
  18.     proceed
  19. _1224:
  20.     trust_me_else  fail
  21. _1214:
  22.     get_variable_y  Y1,X1
  23.     put_variable_y  Y2,X1
  24.     call  virtual/1,2
  25.     put_constant  &10,X1
  26.     put_value_y  Y1,X2
  27.     put_unsafe_value  Y2,X3
  28.     call  build_struct/3,1
  29.     put_variable_x  X1,X1
  30.     put_value_y  Y1,X2
  31.     put_constant  -,X3
  32.     put_constant  &1,X4
  33.     escape  is/4
  34.     execute_proc  do/1
  35.  
  36.  
  37. procedure  build_struct/3
  38.  
  39. _1975:
  40.     get_variable_x  X4,X1
  41.     get_variable_x  X5,X2
  42.     get_variable_x  X6,X3
  43.     put_value_x  X6,X1
  44.     put_constant  blub,X2
  45.     put_value_x  X4,X3
  46.     escape  functor/3
  47.     put_value_x  X4,X1
  48.     put_value_x  X5,X2
  49.     put_value_x  X6,X3
  50.     execute_proc  rewrite_args/3
  51.  
  52.  
  53. procedure  rewrite_args/3
  54.  
  55. _2510:
  56.     get_variable_x  X4,X2
  57.     get_variable_x  X5,X3
  58.     put_variable_x  X2,X2
  59.     put_value_x  X4,X3
  60.     put_value_x  X5,X4
  61.     execute_proc  rewrite_args/4
  62.  
  63.  
  64. procedure  rewrite_args/4
  65.  
  66.     switch_on_term  _3307,_3308,_3308
  67. _3307:
  68.     try_me_else  _3318,4
  69. _3322:
  70.     get_constant  &0,X1
  71.     cut
  72.     proceed
  73. _3318:
  74.     trust_me_else  fail
  75. _3308:
  76.     get_variable_x  X5,X1
  77.     get_variable_x  X6,X2
  78.     get_variable_x  X7,X3
  79.     get_variable_y  Y1,X4
  80.     put_value_x  X5,X1
  81.     put_value_y  Y1,X2
  82.     put_value_x  X6,X3
  83.     escape  arg/3
  84.     put_variable_x  X1,X1
  85.     put_value_x  X5,X2
  86.     put_constant  -,X3
  87.     put_constant  &1,X4
  88.     escape  is/4
  89.     put_value_x  X6,X2
  90.     put_value_x  X7,X3
  91.     put_value_y  Y1,X4
  92.     execute_proc  rewrite_args/4
  93.  
  94.  
  95. procedure  virtual/1
  96.  
  97. _3928:
  98.     try_me_else  _3933,1
  99. _3937:
  100.     proceed
  101. _3933:
  102.     trust_me_else  fail
  103. _3952:
  104.     proceed
  105.  
  106.  
  107.